home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / listings / v_02_01 / 2n01050b < prev    next >
Encoding:
Text File  |  1990-12-02  |  316 b   |  16 lines
  1.  
  2.  
  3.  
  4. function leap(y : longint) : boolean;
  5.         begin
  6.         if y mod 4 <> 0 then
  7.                 leap := false
  8.         else if y mod 100 <> 0 then
  9.                 leap := true
  10.         else if y mod 400 = 0 then
  11.                 leap := true
  12.         else 
  13.                 leap := false
  14.         end;
  15.  
  16.